home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CSPFA.z / CSPFA
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCSSSSPPPPFFFFAAAA((((3333FFFF))))                                                            CCCCSSSSPPPPFFFFAAAA((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CSPFA   - CSPFA factors a complex symmetric matrix stored in packed form
  10.      by elimination with symmetric pivoting.
  11.  
  12.      To solve  A*X = B , follow CSPFA by CSPSL.  To compute  INVERSE(A)*C ,
  13.      follow CSPFA by CSPSL.  To compute  DETERMINANT(A) , follow CSPFA by
  14.      CSPDI.  To compute  INVERSE(A) , follow CSPFA by CSPDI.
  15.  
  16.  
  17. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  18.       SUBROUTINE CSPFA(AP,N,KPVT,INFO)
  19.  
  20. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  21.      On Entry
  22.  
  23.      AAAAPPPP COMPLEX (N*(N+1)/2)
  24.         the packed form of a symmetric matrix  A .  The
  25.         columns of the upper triangle are stored sequentially
  26.         in a one-dimensional array of length  N*(N+1)/2 .
  27.         See comments below for details.
  28.  
  29.      NNNN INTEGER
  30.         the order of the matrix  A .  On Return
  31.  
  32.      AAAAPPPP a block diagonal matrix and the multipliers which
  33.         were used to obtain it stored in packed form.
  34.         The factorization can be written  A = U*D*TRANS(U)
  35.         where  U  is a product of permutation and unit
  36.         upper triangular matrices , TRANS(U) is the
  37.         transpose of  U , and  D  is block diagonal
  38.         with 1 by 1 and 2 by 2 blocks.  KVPT    INTEGER(N)
  39.         an integer vector of pivot indices.
  40.  
  41.      IIIINNNNFFFFOOOO INTEGER
  42.         = 0  normal value.
  43.         = K  if the K-th pivot block is singular.  This is
  44.         not an error condition for this subroutine,
  45.         but it does indicate that CSPSL or CSPDI may
  46.         divide by zero if called.  Packed Storage The following program
  47.      segment will pack the upper triangle of a symmetric matrix.
  48.         K = 0
  49.         DO 20 J = 1, N
  50.         DO 10 I = 1, J
  51.         K = K + 1
  52.         AP(K)  = A(I,J)
  53.         10    CONTINUE
  54.         20 CONTINUE LINPACK.  This version dated 08/14/78 .  James Bunch,
  55.      Univ. Calif. San Diego, Argonne Nat. Lab.  Subroutines and Functions BLAS
  56.      CAXPY,CSWAP,ICAMAX Fortran ABS,AIMAG,AMAX1,REAL,SQRT
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.